Public Class KeyboardSla

    Public Text_KeyBoard As String = ""
    Public Event OnPressEnter(ByVal value As String)
    Public Event OnPressAnyKey()
    Public Event axWBrowser_OnPressAnyKey()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Text_KeyBoard = Text_KeyBoard & Button1.Text
        RaiseEvent OnPressAnyKey()
        RaiseEvent axWBrowser_OnPressAnyKey()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Len(Text_KeyBoard) > 0 Then
            Text_KeyBoard = Mid(Text_KeyBoard, 1, Len(Text_KeyBoard) - 1)
            RaiseEvent OnPressAnyKey()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox(Text_KeyBoard)
        RaiseEvent OnPressEnter(Text_KeyBoard)
        RaiseEvent OnPressAnyKey()
    End Sub

    Public Sub MSGt()
        MsgBox(Text_KeyBoard)
    End Sub
End Class
